/ Revista CD Expert 31 / CD Expert nº 31 Jogo Unreal.iso / System / IpDrv.u / AmtSent_TextBuffer248.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 6b 29 2f 2f 3d 3d 3d 3d |........|k)//====|
|00000010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000020| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000030| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000040| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000050| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0a 2f 2f 20 53 65 |========|=..// Se|
|00000060| 72 76 65 72 56 65 72 69 | 66 79 3a 20 41 75 74 68 |rverVeri|fy: Auth|
|00000070| 65 6e 74 69 63 61 74 69 | 6f 6e 20 66 6f 72 20 74 |enticati|on for t|
|00000080| 68 65 20 67 61 6d 65 20 | 73 65 72 76 65 72 2e 0d |he game |server..|
|00000090| 0a 2f 2f 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.//=====|========|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000e0| 0d 0a 63 6c 61 73 73 20 | 53 65 72 76 65 72 56 65 |..class |ServerVe|
|000000f0| 72 69 66 79 20 65 78 70 | 61 6e 64 73 20 54 63 70 |rify exp|ands Tcp|
|00000100| 4c 69 6e 6b 3b 0d 0a 0d | 0a 2f 2f 20 57 61 69 74 |Link;...|.// Wait|
|00000110| 73 20 66 6f 72 20 74 68 | 65 20 4d 61 73 74 65 72 |s for th|e Master|
|00000120| 20 53 65 72 76 65 72 20 | 74 6f 20 63 6f 6e 6e 65 | Server |to conne|
|00000130| 63 74 20 61 6e 64 20 73 | 65 6e 64 20 74 68 65 20 |ct and s|end the |
|00000140| 63 6f 64 65 2e 20 20 54 | 68 65 20 63 6f 64 65 20 |code.  T|he code |
|00000150| 69 73 20 74 68 65 6e 0d | 0a 2f 2f 20 6d 61 6e 67 |is then.|.// mang|
|00000160| 6c 65 64 20 62 79 20 74 | 68 65 20 65 6e 63 72 79 |led by t|he encry|
|00000170| 70 74 20 66 75 6e 63 74 | 69 6f 6e 2c 20 61 6e 64 |pt funct|ion, and|
|00000180| 20 72 65 74 75 72 6e 65 | 64 20 74 6f 20 74 68 65 | returne|d to the|
|00000190| 20 4d 61 73 74 65 72 20 | 53 65 72 76 65 72 2e 20 | Master |Server. |
|000001a0| 20 4f 6e 63 65 20 74 68 | 69 73 0d 0a 2f 2f 20 6f | Once th|is..// o|
|000001b0| 63 63 75 72 73 2c 20 74 | 68 69 73 20 73 63 72 69 |ccurs, t|his scri|
|000001c0| 70 74 20 62 65 63 6f 6d | 65 73 20 69 6e 61 63 74 |pt becom|es inact|
|000001d0| 69 76 65 2e 0d 0a 0d 0a | 76 61 72 20 69 6e 74 20 |ive.....|var int |
|000001e0| 09 09 56 65 72 69 66 79 | 50 6f 72 74 3b 09 09 09 |..Verify|Port;...|
|000001f0| 2f 2f 20 41 73 73 75 6d | 65 73 20 74 68 69 73 20 |// Assum|es this |
|00000200| 69 73 20 73 65 74 20 62 | 79 20 74 68 65 20 53 65 |is set b|y the Se|
|00000210| 72 76 65 72 55 70 6c 69 | 6e 6b 20 6f 62 6a 65 63 |rverUpli|nk objec|
|00000220| 74 0d 0a 76 61 72 20 73 | 74 72 69 6e 67 5b 33 32 |t..var s|tring[32|
|00000230| 5d 20 09 43 6f 64 65 53 | 74 72 69 6e 67 3b 09 09 |] .CodeS|tring;..|
|00000240| 09 2f 2f 20 53 74 6f 72 | 65 73 20 74 68 65 20 63 |.// Stor|es the c|
|00000250| 6f 64 65 20 70 61 73 73 | 65 64 20 66 72 6f 6d 20 |ode pass|ed from |
|00000260| 6d 61 73 74 65 72 20 73 | 65 72 76 65 72 0d 0a 76 |master s|erver..v|
|00000270| 61 72 20 73 74 72 69 6e | 67 5b 32 34 30 5d 09 52 |ar strin|g[240].R|
|00000280| 63 76 54 65 6d 70 3b 09 | 09 09 2f 2f 20 42 75 66 |cvTemp;.|..// Buf|
|00000290| 66 65 72 20 66 6f 72 20 | 72 65 63 69 65 76 69 6e |fer for |recievin|
|000002a0| 67 20 74 65 78 74 0d 0a | 76 61 72 20 69 6e 74 20 |g text..|var int |
|000002b0| 20 20 20 20 20 20 20 09 | 49 6e 69 74 69 61 6c 43 |       .|InitialC|
|000002c0| 6f 64 65 3b 0d 0a 76 61 | 72 20 69 6e 74 20 20 20 |ode;..va|r int   |
|000002d0| 20 20 20 20 20 09 4d 6f | 64 69 66 69 65 64 43 6f |     .Mo|difiedCo|
|000002e0| 64 65 3b 0d 0a 76 61 72 | 20 69 6e 74 20 20 20 20 |de;..var| int    |
|000002f0| 20 20 20 20 20 41 6d 74 | 54 72 61 6e 73 3b 0d 0a |     Amt|Trans;..|
|00000300| 76 61 72 20 69 6e 74 20 | 20 20 20 20 20 20 20 20 |var int |        |
|00000310| 69 2c 6c 3b 0d 0a 0d 0a | 61 75 74 6f 20 73 74 61 |i,l;....|auto sta|
|00000320| 74 65 20 4c 69 73 74 65 | 6e 69 6e 67 0d 0a 7b 0d |te Liste|ning..{.|
|00000330| 0a 09 66 75 6e 63 74 69 | 6f 6e 20 54 69 63 6b 28 |..functi|on Tick(|
|00000340| 20 66 6c 6f 61 74 20 44 | 65 6c 74 61 54 69 6d 65 | float D|eltaTime|
|00000350| 20 29 0d 0a 09 7b 0d 0a | 09 09 69 66 28 20 4c 69 | )...{..|..if( Li|
|00000360| 73 74 65 6e 28 20 56 65 | 72 69 66 79 50 6f 72 74 |sten( Ve|rifyPort|
|00000370| 20 29 20 29 0d 0a 09 09 | 7b 0d 0a 09 09 09 2f 2f | ) )....|{.....//|
|00000380| 20 4f 70 65 72 61 74 69 | 6f 6e 20 73 75 63 63 65 | Operati|on succe|
|00000390| 73 73 66 75 6c 2c 20 62 | 75 74 20 64 69 64 20 69 |ssful, b|ut did i|
|000003a0| 74 20 63 6f 6e 6e 65 63 | 74 3f 0d 0a 09 09 09 69 |t connec|t?.....i|
|000003b0| 66 28 20 4c 69 6e 6b 53 | 74 61 74 65 20 3d 3d 20 |f( LinkS|tate == |
|000003c0| 54 43 50 5f 4f 70 65 6e | 20 29 0d 0a 09 09 09 7b |TCP_Open| ).....{|
|000003d0| 0d 0a 09 09 09 09 2f 2f | 20 43 6f 6e 6e 65 63 74 |......//| Connect|
|000003e0| 65 64 2c 20 61 73 73 75 | 6d 65 20 74 6f 20 4d 61 |ed, assu|me to Ma|
|000003f0| 73 74 65 72 20 53 65 72 | 76 65 72 0d 0a 09 09 09 |ster Ser|ver.....|
|00000400| 09 47 6f 74 6f 53 74 61 | 74 65 28 27 52 65 63 69 |.GotoSta|te('Reci|
|00000410| 65 76 69 6e 67 27 29 3b | 0d 0a 09 09 09 7d 0d 0a |eving');|.....}..|
|00000420| 09 09 7d 0d 0a 09 09 65 | 6c 73 65 0d 0a 09 09 7b |..}....e|lse....{|
|00000430| 0d 0a 09 09 09 2f 2f 20 | 53 6f 6d 65 20 65 72 72 |.....// |Some err|
|00000440| 6f 72 20 6f 63 63 75 72 | 65 64 2e 20 20 52 65 70 |or occur|ed.  Rep|
|00000450| 65 61 74 20 61 6e 79 77 | 61 79 2e 0d 0a 09 09 7d |eat anyw|ay.....}|
|00000460| 0d 0a 09 7d 0d 0a 0d 0a | 42 65 67 69 6e 3a 0d 0a |...}....|Begin:..|
|00000470| 09 45 6e 61 62 6c 65 28 | 20 27 54 69 63 6b 27 20 |.Enable(| 'Tick' |
|00000480| 29 3b 0d 0a 7d 0d 0a 0d | 0a 73 74 61 74 65 20 52 |);..}...|.state R|
|00000490| 65 63 69 65 76 69 6e 67 | 0d 0a 7b 0d 0a 09 66 75 |ecieving|..{...fu|
|000004a0| 6e 63 74 69 6f 6e 20 54 | 69 63 6b 28 20 66 6c 6f |nction T|ick( flo|
|000004b0| 61 74 20 44 65 6c 74 61 | 54 69 6d 65 20 29 0d 0a |at Delta|Time )..|
|000004c0| 09 7b 0d 0a 09 09 2f 2f | 20 45 78 70 65 63 74 73 |.{....//| Expects|
|000004d0| 20 74 6f 20 72 65 63 69 | 65 76 65 20 65 78 61 63 | to reci|eve exac|
|000004e0| 74 6c 79 20 31 30 20 63 | 68 61 72 61 63 74 65 72 |tly 10 c|haracter|
|000004f0| 73 0d 0a 09 09 41 6d 74 | 54 72 61 6e 73 20 20 2b |s....Amt|Trans  +|
|00000500| 3d 20 52 65 61 64 54 65 | 78 74 28 20 52 63 76 54 |= ReadTe|xt( RcvT|
|00000510| 65 6d 70 2c 20 31 30 2d | 41 6d 74 54 72 61 6e 73 |emp, 10-|AmtTrans|
|00000520| 20 29 3b 0d 0a 09 09 43 | 6f 64 65 53 74 72 69 6e | );....C|odeStrin|
|00000530| 67 20 3d 20 43 6f 64 65 | 53 74 72 69 6e 67 20 24 |g = Code|String $|
|00000540| 20 52 63 76 54 65 6d 70 | 3b 0d 0a 09 09 69 66 28 | RcvTemp|;....if(|
|00000550| 20 41 6d 74 54 72 61 6e | 73 20 3e 3d 20 31 30 20 | AmtTran|s >= 10 |
|00000560| 29 0d 0a 09 09 7b 0d 0a | 09 09 09 2f 2f 20 54 68 |)....{..|...// Th|
|00000570| 65 20 63 6f 64 65 20 77 | 61 73 20 72 65 63 69 65 |e code w|as recie|
|00000580| 76 65 64 2e 20 20 43 6f | 6e 76 65 72 74 20 61 6e |ved.  Co|nvert an|
|00000590| 64 20 73 65 6e 64 20 74 | 68 65 20 0d 0a 09 09 09 |d send t|he .....|
|000005a0| 2f 2f 20 63 6f 72 72 65 | 73 70 6f 6e 64 69 6e 67 |// corre|sponding|
|000005b0| 20 72 65 73 70 6f 6e 73 | 65 20 62 61 63 6b 2e 0d | respons|e back..|
|000005c0| 0a 09 09 09 49 6e 69 74 | 69 61 6c 43 6f 64 65 20 |....Init|ialCode |
|000005d0| 20 3d 20 49 6e 74 20 20 | 20 20 28 20 43 6f 64 65 | = Int  |  ( Code|
|000005e0| 53 74 72 69 6e 67 20 29 | 3b 0d 0a 09 09 09 4d 6f |String )|;.....Mo|
|000005f0| 64 69 66 69 65 64 43 6f | 64 65 20 3d 20 45 6e 63 |difiedCo|de = Enc|
|00000600| 72 79 70 74 28 20 49 6e | 69 74 69 61 6c 43 6f 64 |rypt( In|itialCod|
|00000610| 65 20 29 3b 0d 0a 09 09 | 09 43 6f 64 65 53 74 72 |e );....|.CodeStr|
|00000620| 69 6e 67 20 20 20 3d 20 | 53 74 72 69 6e 67 20 28 |ing   = |String (|
|00000630| 20 4d 6f 64 69 66 69 65 | 64 43 6f 64 65 20 29 3b | Modifie|dCode );|
|00000640| 0d 0a 09 09 09 2f 2f 20 | 4d 61 6b 65 20 73 75 72 |.....// |Make sur|
|00000650| 65 20 74 68 61 74 20 74 | 68 65 20 73 74 72 69 6e |e that t|he strin|
|00000660| 67 20 69 73 20 65 78 61 | 63 74 6c 79 20 31 30 20 |g is exa|ctly 10 |
|00000670| 63 68 61 72 61 63 74 65 | 72 73 20 6c 6f 6e 67 2c |characte|rs long,|
|00000680| 0d 0a 09 09 09 2f 2f 20 | 65 78 63 6c 75 64 69 6e |.....// |excludin|
|00000690| 67 20 74 68 65 20 4e 55 | 4c 4c 2e 0d 0a 09 09 09 |g the NU|LL......|
|000006a0| 6c 20 3d 20 4c 65 6e 28 | 20 43 6f 64 65 53 74 72 |l = Len(| CodeStr|
|000006b0| 69 6e 67 20 29 3b 0d 0a | 09 09 09 69 66 28 20 6c |ing );..|...if( l|
|000006c0| 20 3c 20 39 20 29 0d 0a | 09 09 09 7b 0d 0a 09 09 | < 9 )..|...{....|
|000006d0| 09 09 2f 2f 20 50 61 64 | 20 69 74 20 77 69 74 68 |..// Pad| it with|
|000006e0| 20 73 70 61 63 65 20 63 | 68 61 72 61 63 74 65 72 | space c|haracter|
|000006f0| 73 0d 0a 09 09 09 09 66 | 6f 72 28 20 69 3d 30 3b |s......f|or( i=0;|
|00000700| 20 69 3c 39 2d 6c 3b 20 | 69 2b 2b 20 29 0d 0a 09 | i<9-l; |i++ )...|
|00000710| 09 09 09 7b 0d 0a 09 09 | 09 09 09 43 6f 64 65 53 |...{....|...CodeS|
|00000720| 74 72 69 6e 67 20 3d 20 | 43 6f 64 65 53 74 72 69 |tring = |CodeStri|
|00000730| 6e 67 20 24 20 22 20 22 | 3b 09 09 09 09 0d 0a 09 |ng $ " "|;.......|
|00000740| 09 09 09 7d 09 09 09 09 | 0d 0a 09 09 09 7d 0d 0a |...}....|.....}..|
|00000750| 09 09 09 47 6f 74 6f 53 | 74 61 74 65 28 27 53 65 |...GotoS|tate('Se|
|00000760| 6e 64 69 6e 67 27 29 3b | 0d 0a 09 09 7d 0d 0a 09 |nding');|....}...|
|00000770| 7d 0d 0a 0d 0a 42 65 67 | 69 6e 3a 0d 0a 09 41 6d |}....Beg|in:...Am|
|00000780| 74 54 72 61 6e 73 20 20 | 20 3d 20 30 3b 0d 0a 09 |tTrans  | = 0;...|
|00000790| 43 6f 64 65 53 74 72 69 | 6e 67 20 3d 20 22 22 3b |CodeStri|ng = "";|
|000007a0| 0d 0a 7d 0d 0a 0d 0a 73 | 74 61 74 65 20 53 65 6e |..}....s|tate Sen|
|000007b0| 64 69 6e 67 0d 0a 7b 0d | 0a 09 66 75 6e 63 74 69 |ding..{.|..functi|
|000007c0| 6f 6e 20 54 69 63 6b 28 | 20 66 6c 6f 61 74 20 44 |on Tick(| float D|
|000007d0| 65 6c 74 61 54 69 6d 65 | 20 29 0d 0a 09 7b 0d 0a |eltaTime| )...{..|
|000007e0| 09 09 2f 2f 20 54 68 65 | 20 4d 61 73 74 65 72 20 |..// The| Master |
|000007f0| 53 65 72 76 65 72 20 65 | 78 70 65 63 74 73 20 65 |Server e|xpects e|
|00000800| 78 61 63 74 6c 79 20 31 | 30 20 63 68 61 72 61 63 |xactly 1|0 charac|
|00000810| 74 65 72 73 0d 0a 09 09 | 41 6d 74 54 72 61 6e 73 |ters....|AmtTrans|
|00000820| 20 2b 3d 20 53 65 6e 64 | 54 65 78 74 28 20 43 6f | += Send|Text( Co|
|00000830| 64 65 53 74 72 69 6e 67 | 2c 20 41 6d 74 54 72 61 |deString|, AmtTra|
|00000840| 6e 73 20 29 3b 0d 0a 09 | 09 69 66 28 20 41 6d 74 |ns );...|.if( Amt|
|00000850| 54 72 61 6e 73 20 3e 3d | 20 31 30 20 29 0d 0a 09 |Trans >=| 10 )...|
|00000860| 09 7b 0d 0a 09 09 09 2f | 2f 20 54 68 65 20 63 6f |.{...../|/ The co|
|00000870| 64 65 20 77 61 73 20 66 | 75 6c 6c 79 20 73 65 6e |de was f|ully sen|
|00000880| 74 2e 0d 0a 09 09 09 2f | 2f 20 44 69 73 63 6f 6e |t....../|/ Discon|
|00000890| 6e 65 63 74 2c 20 73 65 | 74 20 74 68 65 20 74 69 |nect, se|t the ti|
|000008a0| 6d 65 72 2c 20 67 6f 20 | 74 6f 20 62 65 64 2c 20 |mer, go |to bed, |
|000008b0| 77 61 6b 65 20 75 70 20 | 6c 61 74 65 72 20 61 6e |wake up |later an|
|000008c0| 64 20 72 65 70 65 61 74 | 2e 0d 0a 09 09 09 47 6f |d repeat|......Go|
|000008d0| 74 6f 53 74 61 74 65 28 | 27 57 61 69 74 57 68 69 |toState(|'WaitWhi|
|000008e0| 6c 65 43 6c 6f 73 69 6e | 67 27 29 3b 0d 0a 09 09 |leClosin|g');....|
|000008f0| 7d 0d 0a 09 7d 0d 0a 0d | 0a 42 65 67 69 6e 3a 0d |}...}...|.Begin:.|
|00000900| 0a 09 41 6d 74 54 72 61 | 6e 73 20 3d 20 30 3b 0d |..AmtTra|ns = 0;.|
|00000910| 0a 7d 0d 0a 0d 0a 73 74 | 61 74 65 20 57 61 69 74 |.}....st|ate Wait|
|00000920| 57 68 69 6c 65 43 6c 6f | 73 69 6e 67 0d 0a 7b 0d |WhileClo|sing..{.|
|00000930| 0a 09 66 75 6e 63 74 69 | 6f 6e 20 54 69 6d 65 72 |..functi|on Timer|
|00000940| 28 29 0d 0a 09 7b 0d 0a | 09 09 44 69 73 61 62 6c |()...{..|..Disabl|
|00000950| 65 28 27 54 69 6d 65 72 | 27 29 3b 0d 0a 09 09 43 |e('Timer|');....C|
|00000960| 6c 6f 73 65 28 29 3b 09 | 09 0d 0a 09 09 45 6e 61 |lose();.|.....Ena|
|00000970| 62 6c 65 28 27 54 69 63 | 6b 27 29 3b 0d 0a 09 09 |ble('Tic|k');....|
|00000980| 47 6f 74 6f 53 74 61 74 | 65 28 27 4c 69 73 74 65 |GotoStat|e('Liste|
|00000990| 6e 69 6e 67 27 29 3b 0d | 0a 09 7d 0d 0a 0d 0a 42 |ning');.|..}....B|
|000009a0| 65 67 69 6e 3a 0d 0a 09 | 2f 2f 20 54 68 69 73 20 |egin:...|// This |
|000009b0| 77 61 69 74 20 69 73 20 | 6e 65 63 65 73 73 61 72 |wait is |necessar|
|000009c0| 79 20 6f 74 68 65 72 77 | 69 73 65 20 74 68 65 20 |y otherw|ise the |
|000009d0| 63 6c 6f 73 65 28 29 20 | 63 6f 6d 6d 61 6e 64 20 |close() |command |
|000009e0| 77 69 6c 6c 0d 0a 09 2f | 2f 20 64 65 73 74 72 6f |will.../|/ destro|
|000009f0| 79 20 74 68 65 20 71 75 | 65 75 65 64 20 64 61 74 |y the qu|eued dat|
|00000a00| 61 20 74 68 61 74 20 77 | 61 73 20 73 65 6e 74 2e |a that w|as sent.|
|00000a10| 0d 0a 09 44 69 73 61 62 | 6c 65 28 27 54 69 63 6b |...Disab|le('Tick|
|00000a20| 27 29 3b 0d 0a 09 53 65 | 74 54 69 6d 65 72 28 36 |');...Se|tTimer(6|
|00000a30| 2c 66 61 6c 73 65 29 3b | 0d 0a 7d 0d 0a 0d 0a 73 |,false);|..}....s|
|00000a40| 74 61 74 65 20 49 6e 61 | 63 74 69 76 65 0d 0a 7b |tate Ina|ctive..{|
|00000a50| 0d 0a 42 65 67 69 6e 3a | 0d 0a 09 44 69 73 61 62 |..Begin:|...Disab|
|00000a60| 6c 65 28 20 27 54 69 63 | 6b 27 20 29 3b 0d 0a 7d |le( 'Tic|k' );..}|
|00000a70| 0d 0a 0d 0a 00          |                         |.....   |        |
+--------+-------------------------+-------------------------+--------+--------+